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REMAINDERS 



One little known use of the MID? function is "remainder 
string". If the third parameter of the MID$ function is 
omitted the resulting string will be every character to the 
right of the specified start position for the string being 
operated on. For example: 



1. AS = "123 4567 89" 

2. B$ = MID$ ( A$, 2, 4 

3. B$ = flID$ ( A$ f 2 ) 



; equals "23 45" 
;equals "23456789" 



This is not the same as RIGHTS as this function returns 
an absolute number cf characters starting from the rightmost 
position. This application works best when the right-hand 
portion of a string is wanted and the string length is not 
known. 



BASIC 4.0 Preliminary no te 

BASIC 4.0 ROMs for the 40 column PET are on their way! 
The main differences are: 

1. Faster garbage collection 

2. Disk commands included in BASIC 

Of course most SYStem calls to ROM will require modification 
but PEEKs and POKEs should remain valid except for some 
locations that may have been labelled unused in BASIC 2.0. 
tfore on BASIC 4.0 in a later issue. Also see Jim 
Butterf ield' s new BASIC 4.0 memory maps, this issue. 

All BASIC 2.0 programs will run on BASIC 4.0 except for 
one minor gotcha. BASIC 4.0 has reserved two more variables 
for it's own use; DS and DS$. When called, DS will contain 
the error number from the disk and DS$ will return the error 
number, description, track and sector much like hitting ">" 
and return with DOS Support. The same rule applies to DS and 
DS$ as ST, TI and TI$; they must not appear on the left of an 
" = " sign. If they do a ? SYNTAX ERROR will result. So if 
your programs use either of these two new reserved variables, 
it would" be a good idea to change them before RUNning on 
BASIC 4.0. This could be easily done by running your 
programs through Jim Butterf ield' s Cross-Ref program from 
Transactor #9, Vol 2. 



The Transactor is produced on the 
WordPro IV and the NEC Spinwriter. 



new CBH 8032 using 



JD Changer 



COMPUTE magazine, issue #5, published an article that 
allows the user to change the ID of a diskette. This can 
cause irreparable damage to your disks! The program changes 
only the the ID that gets printed with the directory. 
However, the ID precedes every sector on the disk and these 
do not get changed. An update will be published in the next 
COMPUTE but this early warning will be appreciated by some 



I'm sure. 



Printer ROMs 



Recent deliveries of Commodore printers have been 
released with the 04 ROM. Though this ROM fixes existing 03 
ROM bugs, it has a tendency to lock into lower case, 
inhibiting upper case character printing. This happens after 
sending to secondary address 2 (receive data for format). 
Commodore has discontinued the 04 printer ROM and until the 
8 ROM is released (sometime in the fall) the following 
software fix will prevent this bug from appearing. Lines 30 
and 40 insert a 25 jiffy delay prior to OPENing the format 
channel: 

10 OPEN 4, 4, 

20 PRINT#4, "HELLO" 

30 T = TI 

40 IF TI - T < 25 THEN 40 

50 OPEN 5, 4, 2 

60 PRINT#5, " AAA 999 ...etc. 

This bug can also be used to your advantage i.e. for LISTing 
to the printer in lower case which was, in most cases, 
impossible on printers containing an 03 ROM. There is, 
however, an easier way of implementing it: 

100 OPEN 7, 4, 7 : PRINT#7 : CLOSE 7 

...puts the printer in lower case mode. Power down and up 
gets you back to upper case and graphics. 



PRINT Speed - Up 



In Transactor #2, Vol 2, a POKE was published that made 
PRINT to the screen much faster than normal. On recent 
machines this POKE can not only cause the machine to crash 
but may also result in internal damage! Avoid including this 
in your programs. . .especially those that you may want to RUN 
on other peoples machines. Software portability is very 
important, particularly business software. If your package 
crashes your clients machine, you may find yourself in a very 
embarassing situation. 

Verbatim MP 577 S uper Minidisk 

In the past Commodore has frowned on the use of Verbatim 
diskettes for the 2040 floppy disk, particularly the MD 



525-16. Verbatim recognized the problems with their disks 
and have improved the quality substantially. 
Result: The MD 577 Super Mini. 

First, the thickness of the jacket PVC material has been 
increased from 7.5 to 8 mils giving the disks greater 
rigidity. 

Secondly, the lamination pattern, which secures the 
inner lining to the jacket, was redesigned to eliminate 
potential "pillowing" problems. "Pillows" are minute raised 
areas on the lining surface which can interfere with the 
sideways movement of the disk. 

Most importantly though, the new Verbatim MD 577s are 
provided with a factory installed "hard hole" or hub 
reinforcement ring, thus creating better centering ability 
and reducing the possibility of hub damage. Coincidentally , 
the performance of almost any diskette can be substantially 
improved by adding a hub ring prior to formatting. 

Part of the problem was also the boxes they were 
packaged in, which put creases in the front two or three 
disks. These are no longer used. 

We have tested the Verbatim 577s and found them to be of 
quite high quality. We've also decided to use them for 
distributing Commodore software which should appear on the 
market this fall. 



Controlling Garbage Collections To^So^On?'. 

We all know that the PET garbage collection can take an 
annoyingly long time. One highly frustrating time for a 
garbage collection to happen is while you are executing a GET 
loop input from the keyboard. There you are, typing away, and 
suddenly the cursor is still flashing at you, but no inputs are 
accepted. 

To avoid this, we'd like to force an early garbage 
collection, at the start of the input, but only if it would 
have happened anyway. 

First things first. A GET loop is very productive of 
garbage collections because it uses lots of memory. The 
typical form of this loop is: 

10 GET A$: IF A$ = "" THEN 10 
20 B$=B$+A$ 

What this does is create a set of partial strings. If the 
input is 'Mary had a little lamb', then the strings are: 

M 

Ma 

Mar 

Mary 

and so on to 

Mary had a little lam 

Mary had a little lamb 

That's a lot. Exactly how much ? We could count the 
number of characters and sum the numbers from 1 to n, but a 
rule of thumb is n squared over 2. (A more exact figure is (n 
squared + n)/2) For 22 characters, the memory used is 242 
bytes. For 80 characters, it's around 3240 bytes. 

So, what can we do about it. Well, we need some way of 
determining the free memory space. FRE(O) will do this - but 
it will cause a garbage collection, and we don't really want 
one yet. Let's define a function, FNFR(X) : 

1 DEF FNFR(X) = PEEK(48) + 256*PEEK(49) - (PEEK(46) + 
256*PEEK(47) ) 

That's simply the distance between the beginning of 
strings and the end of arrays. The argument is a dummy, just 
like FRE(X) . 

Our test then is: 

5 IF FNFR(X) < (L*L)/2 THEN Q = FRE(0) 

where L is the anticipated maximum string length. 

One peculiarity of FNFR is that the statement: 

PRINT FNFR(0)-FRE(0) is almost never the same as: 

PRINT FRE(0)-FNFR(0) which is always 0. 



So ftware Product Review: Gord Campbell, 

Toronto, Ont. 
EA STERN HOUSE SOFTWARE Assembler Language Macro Packag es 

- Graphics Drawing Compiler 

- PET Music and Sound Composer 

The two macro packages have similar requirements and 
content as follows: 

Requirements 

- ASSM/TED, Eastern House Software's assembler and text 
editor. This in turn requires: 

- 16K RAM 

- EASIC 2.0 ROMs 

Content 

- a library of macros. This includes several general 
purpose macros as well as those specific to the topic. 

- complete and useful documentation 

- patches to enhance ASSM/TED 

Recommendation 

If you are really into assembler language, and have 
ASSM/TED, you should buy the Graphics Compiler. This will 
give you a 'cookbook' on how to write macros, some very handy 
enhancements to the assembler, and the macros themselves. 

Given the similarities, it would seem appropriate to 
obtain the package which is of greater interest to you - 
music or graphics. However, I believe that the Music 
Composer has a significant limitation: it supports only CB2 
sound. Since CE2 can be driven entirely adequately from 
BASIC, do it in BASIC. The raw speed and exactness of timing 
which are the main benefits of using assembler are not 
required, so simplicity should be most important. Besides, 
if you want real music, you should be using the entire 
parallel port and a digital-to-analog converter. This is not 
really difficult to do, and the results are worth it. Keep 
in mind that the above comments reflect the attitudes and 
prejudices of one person. Just do not expect more than CB2 
control from the Music Composer. 

The remainder of this review concentrates on the 
Graphics Compiler. 



What You Get 

The graphics package includes a cassette with the macro 
library and an example program, and some excellent 
documentation. This includes: 

- Genreral introduction 

- Instruction Set - description of the 39 macros 

- Enhancements - description of the additions to ASSM/TED 

- Operation - how to use the package (mechanics) 



Useful details - some programming suggestions 

Adding your own macros - with a non-trivial example 

Instruction set summary 

Combining machine-language and BASIC programs 

Graphics Compiler source listing 

patches for the assembler 



Instruction Set 

ADD - single-byte add 

SUB - single-byte subtract 

BEGIN - initialization and all subroutines 

BELL - make a beep on CB2 

CLEAR - clear screen from current cursor position to end 

HOME - home the cursor 

DO - loop the number of times specified in a variable 

END - terminate a DO loop 

DEFINE - set a variable to a specified value 

DRAWD - draw a line - down 

DRAWL - left 

DRAWR - right 

BRAWU - up 

GRAPHN - set upper/lower case mode 

GRAPHY - set graphics mode 

INPUTB - input a byte as two hexadecimal digits 

INPUTC - input one ASCII character 

JUMP - jump - unconditional 

JUHPE - if a (one byte) variable contains zero 

JUMPG - if a variable is positive 

JUHPGE - if a variable is zero or positive 

JUMPL - if a variable is negative 

JUMPLE - if a variable is negative or zero 

JUMPN - if a variable is not zero 

OUTPUTB - output a byte as two hexadecimal digits 

OUTPUTC - output one ASCII character 

PRINT - print a text string 

POSABS •<- position the cursor to a specified location 

POSREL - move the cursor a specified number of rows and 

columns 

REVRSY - set reverse video on 

REVRSN - set reverse video off 

SETA - set the predefined variable A to a literal value 

SETAB - set A and B (note: A, B, C, and D are defined in 

BEGIN) 

SETABC - set A, B, and C 

SETABCD - set A, B, C, and D 

VECTUR - draw a diagonal line - up and right 
VECTUL - up and left 

VECTLP. - lower right 

VECTLL - lower left 



There are also two undocumented macros, WAIT and SCROLL, 
as well as a number of internal macros used by begin. 

The commands do provide some capabilities which are not 
found in BASIC (as single statements) , although there is 
nothing radical. I would appreciate some form of ARC 
function, even if it meant invoking a subroutine in ROM to do 
the trigonometry, and the compatibility problems which 



result. As well, graphs made with the quarter-squares 
(considering the screen to be an area of 80 by 50 positions) 
are very nice (and slov; in BASIC) but not supported. 



Assembler Enhancements 

There are three additions to the assembler itself. 
These are: 

- BUILD - a new command with three operands: 

MACROS - to seal off your macros so that they 

are unaffected by NUMBER, EDIT, 

PRINT, etc. 
LIBRARY - to seal off a library of external 

definitions (eg. page zero locations) 
CLEAR - to allow you to modify macros or 

library 

- FORMAT (CLEAR or SET) n - where ' n 1 is the maximum 

label length from 1 to 31 (default 
10) . This will clean up the listing 
if you have a narrow printer, and on 
the screen. 

- allowing you to return to BASIC from ASSM/TED. Since 
the assembler uses the first 64 bytes of page zero, it 
is normally not possible to return to BASIC. The 
patch maintains a page-zero swap area, allowing you to 
go back and forth from one to the other. It can be 
extremely useful for testing a routine which is to be 
called from BASIC. 

The enhancements come in hard copy form. You are 
required to enter a 240-byte routine using the machine 
language monitor, then single instructions at seven locations 
within the assembler itself. Memory required by the 
assembler thus goes up by two pages. 

Summary 

As stated earlier, I recommend the Graphics Compiler if 
you are a serious user of ASSM/TED, whether you are 
interested in graphics or not. The examples of macro 
definitions, several of which have nothing to do with 
graphics, and the additions to the assembler have significant 
value. The fine documentation and actual graphics support 
could well be treated as a bonus. 



More On Screen Print John McDonald, 

Wawa, Ont. 

I found Jim Butterf ield' s machine language Screen Print 
Routine (Transactor #5) very useful in a program I am 
developing. But in order to stretch the forty columns on the 
screen to eighty columns on the printer I have added an 

S" r~"i l-""« -~«j-""'i c~= «£=■ r»"i "S" •"'"• ~t- - 

The change is quite easy. 
Method #1 using Supermonl.O 

1. load the screen print routine code, 

2. use command • .T 0359 03B3 035E' to open up 5 bytes in 
the code at $0359, 

3. use command ' .M 0359 035E' and change 
'.: 0359 A9 11 AE 4C E8 A9 11 AE 1 to 
'.: 0359 A9 01 20 D2 FF A9 11 AE', 

4. use command • .M 03B0 03B7 ' and change 'A6' at $03B0 to 



5. use command ' .S "dn:name" ,dv,033A, 03B9 ' . 
Method #2 using the Basic Loader for the code 

1. load the screen print routine basic loader, 

2. change 947 in line 100 to 952, 

3. add ',1,32,210,255,169' to the end of the DATA statement 
at line 230, 

4. change 166 at the end of line 330 to 161, 

5. save the modified program. 

This modification sends a control character (CHR$(1) as 
per the above modification) to the printer after every 
carriage return. 

To use the screen print routine simply use 'SYS826' in 
your code. To change or ensure the mode of the routine just 
use 'POKE858,l or 129' before the SYS826 command. For 
« e: . ,j •■■;, j- •■, .~:.-„.jt ™, .:-: tH- oj ' mode, use '1': for 'unenhanced' mode, use 
•129' . 



True ASCII Output Henry Troup, 

Toronto, Ont. 

We are all aware that the PET does not use true ASCII 
coding internallly. However, many of us have printers that do 
use real ASCII. In order to get upper and lower case 
operation, some code conversion is needed. 

In this article, I shall present two ways of doing the 
conversion: one in BASIC, and one machine language. Both 
operate by a table lookup. This has the advantage that any 
other code conversion (to screen poke, Baudot or teletype code, 
for example, or ISO, or EIA, or what have you) can be had 
simply by changing the table. Or, a simple conversion to lower- 
case can be had by ANDing each byte with 127. 

I personally keep the conversion table in a disk file. It 
is appended at the end of this article. 

First, the BASIC method. We dimension an integer array, 
M%(255), and use it as the table. Then we assign the string to 
be converted to S$. 

1000 REM CONVERSION ROUTINE 

1010 M$="" : IF S$= "" THEN 1050 

1020 FOR I = 1 TO LEN(S$) 

1030 M$ = M? + CHR$ (M%(ASC(MID$(S$,I)) )) 

1040 NEXT I 

1050 RETURN 



This is slow, but tolerable if you're not doing too much 
conversion. It uses 519 bytes for storage of the table, and 
needs an available space of about five times the length of the 
string for working storage (it will work with less, but garbage 
collections will cause delays) . 

Now, the machine language method. This is faster and uses 
less storage. Here is the assembler listing. This program 
operates on the variable after the SYS. You must set up the 
table (anywhere you can get 256 bytes of free memory), and move 
the BASIC pointers. Then you can call the program. 



si = $dd 





ts = 


: $7f00 




va = 


= $44 


.skip 








* - 


= 826 


.skip 








Ida 


si 




pha 






Ida 


sl+1 




pha 






jsr 


$cdf8 




jsr 


$cf6d 




Ida 


$07 




bne 


start 




jmp 


$cc9a 


.skip 






start 


cpx 


#$00 




beq 


null 




ldy 


#$02 




Ida 


(va) ,y 




sta 


sl+1 




dey 






Ida 


(va) ,y 




sta 


si 




dey 






Ida 


(va) ,y 




tay 






beq 


null 




dey 




loop2 


Ida 


(sl) f y 



;convert2.src 

;convert petascii to true 

;ascii by lookup 

;a convenient place to put 

;the pointer (used in tape i/o) 

; start of table 



; check comma 
;find variable 
; check type 

;type mismatch error if numeric 

; check for null string 
;or undefined variable 



;ptr lo 



;ptr hi 



; length 



;any character handling routine 
;can be substituted for the 
;next lines 



;do table lookup 
;put back in string 

;test for end 

;restore zero page 



tax 

Ida ts,x 

sta (si) r y 

dey 

cpy #$ff 

bne loop2 
null pla 

sta sl+1 

pla 

sta si 

rts 
.end 
;to use this routine: 
;sys 826, (string variable) 
;the converted string ]Lis 
space 

;note: if the variable is defined 
changed in text ! 
; string array variables work, except for the 0th 
;undefined variables are taken as nulls. 
;undimmed arrays will be created 



returned into the original 
in text, it will be 
element 



10 



And as a basic loader: 
top of memory pointer) 



(which locates the table from the 



10 


DATA 


165, 


221, 


72, 


165, 


222, 


72 


15 


DATA 


32, 


248, 


205, 


32, 


109, 


207 


20 


DATA 


165, 


7, 


208, 


3 


r 76 


, 154 


25 


DATA 


204, 


224, 


0, 


240, 


31, 


160 


30 


DATA 


2, 


177, 


68, 


133, 


222, 


136 


35 


DATA 


177, 


68, 


133, 


221, 


136, 


177 


40 


DATA 


68, 


168, 


240, 


14, 


136, 


177 


45 


DATA 


221, 


170, 


189, 


-1, 


-2, 


145 


50 


DATA 


221, 


136, 


192, 


255, 


208, 


243 


60 


DATA 


104, 


133, 


222, 


104 







1000 FOR X = 826 TO 914:READ P 

1010 IFP = -1 THEN P = PEEK(54):REM RELOCATE TABLE 

1020 IFP = -2 THEN P = PEEK(53) 

1030 POKE X,P :NEXTX 



A Sample Initialisation; 



10 POKE53, PEEK (53-1) :CLR:REM MOVE TOP OF MEMORY 

20 OPEN4,4:GOSUB1000:REM GET PROGRAM 

40 OPEN5,8,5,"CONVERT,S,R":REMM GET TABLE FROM DISK 

50 FORX=0TO255 : INPUT#5 , M% : POKEPEEK ( 53 ) +X , M% : NEXTX : CLOSE5 : REM 

PUT TABLE IN 

60 S$= n THIS IS A TEST":SYS826,S$:PRINT#4,S$:REM ACTUAL 

CONVERS ION 

This is much faster, and needs only the 256 bytes to store the 
table. The conversion table follows: 



1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 



data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 



0, 


1, 


2, 


3, 


4 


5, 


6, 


7, 


10, 


11, 


12, 


13, 


14, 


15 






16, 


17, 


18, 


19, 


20, 


21, 


22, 


23, 


26, 


27, 


r 28, 


29, 


30, 


31, 


32, 


33, 


36, 


37, 


38, 


39, 


40, 


41, 


42, 


43, 


46, 


47, 


48, 


49, 


50, 


51, 


52, 


53, 


56, 


57, 


r 58, 


59, 


60, 


61, 


62, 


63, 


98 


, 99 


r 100, 


101, 


102 


r 103, 


104, 


105, 


108, 


109 


, no, 


111, 


112, 


113, 


114, 


115, 


118, 


119 


r 120, 


121, 


122, 


91, 


92, 


93, 


96, 


97, 


98, 


99, 


100, 


101, 


102, 


103, 


106, 


107, 


108, 


109, 


110, 


111, 


112, 


113, 


116, 


117, 


, 118, 


119, 


120, 


, 121, 


122, 


123, 


126, 


127, 


128, 


129, 


130, 


131, 


132, 


133, 


136, 


137, 


138, 


139, 


140, 


141, 


142, 


143, 


146, 


147, 


r 148, 


149, 


150, 


, 151, 


152, 


153, 


156, 


157, 


, 158, 


159, 


160, 


- 161, 


162, 


163, 


166, 


167, 


168, 


169, 


170, 


,171, 


172, 


173, 


176, 


177, 


r 178, 


179, 


180 


r 181, 


182, 


183, 


186, 


187, 


r 188, 


189, 


190 


191, 


192, 


65 


68, 


69 


r 70, 


71, 


72 


, 73, 


74, 


75, 


78, 


79 


r 80, 


81, 


82 


r 83, 


84, 


85, 


88, 


89 


r 90, 


219, 


220 


r 221, 


222, 


223, 


226, 


227 


r 228, 


229, 


230 


r 231, 


232, 


233, 


236, 


237 


r 238, 


239, 


240 


r 241, 


242, 


243, 


246, 


247 


, 248, 


249, 


250 


r 251, 


252, 


253, 



8, 

24, 

34, 

44, 

54, 

64, 

106, 

116, 

94, 

104, 

114, 

124, 

134, 

144, 

154, 

164, 

174, 

184, 

66, 

76 

86, 

224, 

234, 

244, 

254, 



25 

35 

45 

55 

97 

107 

117 

95 

105 

115 

125 

135 

145 

155 

165 

175 

185 

67 

77 

87 

225 

235 

245 

255 



PET 2040 DTSK BUFFER T/O ROUTINE J . HOOG STRAAT , 

BOX 20. SITE 7. SS 1, 

CALGARY. ALTA. 

The major difficulty in programming direct access 
routines for the PET 2040 disk drives is the computation of 
the exact location of the recorded information on a disk 
sector, for the reason that the PET prints its data to the 
disk rather than transferring it byte for byte. 

This results in variable length records on each disk 
write, unless the programmer takes special care converting 
each variable to a fixed length string variable before 
writing it to the disk. This is not too bad for string 
variables, but other variables could be ranging in length 
from one to more than ten characters after conversion to an 
equivalent string variable. 

Suppose we want to program a direct access file 
consisting of records made up of an ITEM-NO, DESCRIPTION and 
COST. 

The ITEM-NO ranges from 1 to 9999 

The DESCRIPTION is 12 bytes long 

The COST ranges from .00 to 9999999.00 

We need 4 characters for the ITEM-NO, 12 for the 
DESCRIPTION and 10 for the COST. This would total up to 26 
characters per record, but in order to be able to read it 
back we have to add at least one carriage return character 
after the COST string. After reading we can de-compose the 
information with MID$ calls. Or, if we wish to be able to 
update each field individually, a carriage return character 
must be added after each field, which ups our total record 
length to 29 characters 

I personally found this method rather wasteful and 
cumbersome to program with all the STR$ calls and BLANK 
padding. No other software seemed to be available, except 
for Bill Macleans Block Get Routine published in the 
Commodore Transactor Vol 2, Dec 31, 1979. An excellent 
routine, but it can only read from the disk buffers with 
special care to be taken for the allocation of the input 
string variable. 

So, what I needed was a routine with the following 
characteristics: 

.. Be able to read the disk block buffers. 

.. Be able to write the disk block buffers. 

.. No need for blank padding of any variables or the need of 
adding carriage return characters. 

.. Record and read numeric variables as 5 binary characters, 
as stored in PET's memory. This allows records of up to 51 
numeric variables on a disk sector. 

.. Be able to read single character string variables with an 



ASC value of zero, in stead of getting a HULL string. 

.. Exercise full control over the Block Euffer Pointers. 

.. Perform like a basic WRITE or READ statement. 

.. No need for special declarations or dummy manipulations of 
input variables. 

.. Be able to output any kind of proper expressions. 

.. Be totally relocatable. 



Aided with Jim Butterfields excellent PET maps and the 
Macro-Tea assembler of Skyles Electric Works, I succesfully 
coded the needed routine. 

1*11 explain how to use it with some basic coding 
examples. 

The basic format for the call to the PET 2040 disk buffer 
I/O routine is: 

SYS XX, 10, CH, ( BP ,VA ,(LN)) 



XX = Address were the routine is loaded. 

10 = Input / Output key value. 

CH = Disk direct access channel no. 

BP = Buffer pointer value. 

VA = Variable name. 

LN = No of characters. 

For single BP control the 10 values are: 

For normal reading. 

1 For normal writing. 

2 For special reading. 

3 Same as 1 . 

For multiple BP control the 10 values are: 



4 For normal reading. 

5 For normal writing. 

6 For special reading. 

7 Same as 5 



13 



BASIC NUMERIC VARIABLE EXAMPLES 

10 DK = 1: CE = 15: CH = 2 : XX = 634 

20 OPEN CE f 8,CE 

30 OPEN CH,8,CH,"#" 

40 T = 2: S = 5: BP = 13 

50 REM WRITE 3 VARIABLES TO DISK 

60 SYS XX, 1, CH, BP, A, B, C :REM OUTPUT 

70 PRINT#CE, "U2:"CH;DK;T;S 

880 REM READ 3 VARIABLES FROM DISK 

90 PRINT#CE, "U2:"CH;DK;T;S 

100 SYS XX, 0, CH, BP, X, Y, Z :REM INPUT 

In this example we are writing the 3 numeric variables 
(A,B,C) to the disk buffer starting at character position 13. 
The result is then written to disk drive 1 at Track 2, Sector 
5. The buffer pointer is automatically incremented by 5 for 
each variable and the variables are recorded in internal PET 
format. Note no padding or carriage returns needed. After 
the write, the variables are read back into X, Y and Z. 

For numeric variables the parameter LN is implied and 
must not be coded. 

If the PRINTtCE calls were omitted, no actual disk 
writing or reading would take place, but merely a transfer to 
and from the disk buffer allocated to channel CH, which maybe 
useful in passing parameters between' overlays. 

Statement 60 could be something like 

60 SYS XX, 1, CH, BP, 1., A, A+B*C :REM OUTPUT 

60 SYS XX, 1, CH, BP, SQR(A), SIN(A+B) , A/E :REM OUTPUT 

60 SYS XX, 1, CH, BP, l.+C, -A, -55.5 :REM OUTPUT 

The number of concatenated variables is only limited by 
the maximum length of a BASIC line. But at least one must be 
specified. We could also replace statement 60 by the 
following lines: 



60 SYS XX, 1, CH, BP , A 

61 SYS XX, 1, CH, BP+ 5, B 

62 SYS XX, 1, CH, BP+10, C 



REM OUTPUT 
REM OUTPUT 
REM OUTPUT 



Which have the same effect as the original line 60. 

Statement 100 could also be replaced by the following 
lines, which would read back the exact same information in 

14 



the variables X, Y and Z. 

100 SYS XX, 0, CF, PP+ 5, Y, Z :?.ZV INPUT 

101 SYS XX, 0, CF, ?-P , Y :REN INPUT 

If we want more control over the buffer pointer on the 
write, the value for IO must be 4 for reading and 5 for 
writing. 

Statements 6 and 100 which were: 

60 SYS XX, 1, CF, DP, A, B, C :REN OUTPUT 
100 SYS XX, 0, CF, BP, X, Y, Z :FEF INPUT 

can now be coded as: 

60 SYS XX, 5, CF, BP, A, BP+ 5, E, BP+10, C :REF OUTPUT 

100 SYS XX, 4, CF, EP, X, BP+ 5, Y, BP+10, Z :REN INPUT 

The difference is that each variable now has a buffer 
pointer value preceeoing it. The statements can now also be: 

6 SYS XX, 5, CF, BP+ 5, B, BP, A, BP+10, C :REM OUTPUT 

100 SYS XX, 4, CF, BP+10, Z, BP, X, BP+ 5, Y :REM INPUT 

Since v/e now have full buffer pointer control. 

BASIC STRING VARIABLES EXAMPLES 



10 DK = 1: CE = 15: CF = 2: XX = 634 

20 OPEN CE,8,CE 

30 OPEN Cn,8,CH,"#" 

40 T = 2: S = 5: BP = 13 

50 REN WRITE 3 STRING VARIABLES TO DISK 

60 SYS XX, 1, CF, BP, A$,5, B$,6, C$,10 :REM OUTPUT 
70 PRINT#CE, "U2:"CF;DK;T;S 

80 REN READ 3 STRING VARIABLES FROM DISK 

90 PRINT #CE, "U2:"CF;DK;T;S 

100 SYS XX, 0, CF, BP, X$,5, Y$,6, Z$,10 :REH INPUT 

In this example we are writing the 3 STRING variables 
(A$,B$,C$) to the disk buffer starting at character position 
13. The result is then written to disk drive 1 at Track 2, 
Sector 5 . 

The difference between a numeric variable and a string 
variable is that the string variable is followed by LN, its 
length or number of characters. The specied length does not 
have to be the actual length of the string variable. In our 
example the first 5 characters of X$ are transferred, 
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followed by the first 6 characters of Y$ and then the first 
10 characters of Z$. 

The buffer pointer is automatically incremented by 5,6 and 
10. Note no padding or carriage returns needed. After the 
write, the variables are read back into the string$ X$, Y$ 
and Z$ 

Lets now examine what happens if we have the following 
statements: 

55 Z$ = "HANS" +" MARGARET" 

60 SYS XX, 1, CH, BP, Z$,LEN(Z$) :REM OUTPUT 

The disk buffer (CH) will now contain starting at 
character position 13 the text "HANSMARGARET" . The same 
results of the next statement: 

60 SYS XX, 1, CH, BP, "HANS" +" MARGARET" ,12 :REM OUTPUT 

And the statement: 

100 SYS XX, 0, CH, BP, Z$,12 :REH INPUT 

Will input and create a string variable with a length of 
12 characters and containing the text "HANSMARGARET". 
However the statement: 

100 SYS XX, 0, CH, BP, Z$,10 :REM INPUT 

Will input and create a string variable with a length of 
10 characters and containing the text "HANSMARGAR" . Or the 
statements: 

100 SYS XX, 0, CH, BP , X$,6 :REK INPUT 

101 SYS XX, 0, CH, BP+7, Z$,5 :REM INPUT 

Will input and create two string variables X$ and Z$, 
containing "HANSMA" AND "GARET" 

Note that no extra linefeeds or carriage return 
characters are written and that the record space needed for 
the original ITEM-NO, DESCRIPTION and COST example is now 
5+12+5 or 22 characters instead of the 29 needed without this 
buffer I/O routine. 

If the PRINT#CE calls were omitted no actual disk 
writing or reading would take place, but merely a transfer to 
and from the disk buffer allocated to channel CH, which again 
maybe useful in passing parameters between overlays, or to do 
some fancy string manipulations. 

P . E . : 

10 A$ = "XXXXXXXXXX" 

11 B$ = "YYYYY" 

12 SYS XX, 1, CH, 2, A$, LEN(A$) :REM OUTPUT 

13 SYS XX, 1, CH, 5, B$, LEN(B$) :REM OUTPUT 

14 SYSS XX, 0, CH, 2, A$ , 10 :REM INPUT 
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First writes the string variables A$ and B$ overlaying 
the A$ information and then inputs and creates a string 
variable A$ containing "XXXYYYYYXX" . 

Statement 60 could be something like 

60 SYS XX, 1, CH, BP, A$+ n X",5, A$+B$,6, A$+"Z"+C$,10 
:REM OUTPUT 

The number of concatenated string variables is only 
limited by the maximum length of a BASIC line. But at least 
one must be specified. We could also replace statement 60 by 
the following lines: 

60 SYS XX, 1, CH, BP , A$,5 :REM OUTPUT 

61 SYS XX, 1, CH, BP+ 5, B$,6 :REM OUTPUT 

62 SYS XX, 1, CH, BP+11, C$,10 :REM OUTPUT 

Which have the same effect as the original line 60. 

Statement 100 could also be replaced by the following 
lines, which would read back the exact same information in 
the string variables X$, Y$ and Z$ 

100 SYS XX, 0, CH, BP+5, Y$,6, Z$,10 :REM INPUT 

101 SYS XX, 0, CH, BP , X$,5 :REM INPUT 

If we want more control over the buffer pointer on the 
write, the value for 10 must be 4 for reading and 5 for 
writing. 

Statements 60 and 100 which were: 

60 SYS XX, 1, CH, BP, A$,5, B$,6, C$,10 :REM OUTPUT 
100 SYS XX, 0, CH, BP, X$,5, Y$,6, Z$,10 :REM INPUT 

can now be coded as: 

60 SYS XX, 5, CH, BP,A$,5, BP+5,B$,6, BP+11, C$,10 :REM 
OUTPUT 

100 SYS XX, 4, CH, BP,X$,5, BP+5,Y$,6, BP+11, Z$, 10 :REM 
INPUT 

The difference is that each string variable now has a 
buffer pointer value preceeding it and still its length 
following it. The statements can now also be: 

60 SYS XX, 5, CH, BP+5,B$,6, BP+11, C$,10, BP,A$,5 :REM 
OUTPUT 

100 SYS XX, 4, CH, BP+11, Z$, 10, BP,A$,5, BP+5,Y$,6 :REM 
INPUT 

Since we now have full buffer pointer control. 

So far I only discussed write and reads of string 
variables of the same length on the writing and reading. 
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Now suppose we have the following statements: 

55 A$ = "HANS" 

60 SYS XX, 5, CH, 10,A$,10 , 20,A$+A$,10 :REM OUTPUT 

This transfers to the buffer, starting at character 
location 10, the characters "hans*****hanshans**" , where the 
"*" stands for an automatic padded carriage return character 
with an ASC value of 13. In other words the routine will 
always write the number of characters requested but if the 
output string expression is too short, the output will be 
padded with carriage return characters. This has a nice 
effect when we read the same data back with the following 
statement: 

100 SYS XX, 4, CH, 10,A$,10 , 20,B$,10 :REM INPUT 

This call will input and create the two string variables 
A$ and B$, but their contents will be "HANS" AND "HANSHANS", 
since the input quits on the first encountered carriage 
return characters for each variable and their length will be 
4 and 8. However an otherwise null character string will 
always be returned as a character string of ASC value zero 
with a length of one. 

Sometimes this technique is undesirable and we want to 
get back every character, no matter what their ASC values 
are. Now the special read I/O values 2 or 6 are to be used. 
The statement: 

100 SYS XX, 6, CH, 10,A$,10 , 20,B$,10 :REM INPUT 

Will now input and create an A$ and B$ variable 
containing "nans******" and "hanshans**" . 

Note, the length limit of a string variable is 255 bytes, 
allowing us to read or write entire disk buffer blocks at 
once. 

By no means do we have to write separate statements for 
numeric or string variables, we can mix them up. The 
following statements are quite legal: 

51 IT = 5469 

52 SS$ = "PET COMPUTER" 

53 CO = 1365.25 

60 SYS XX, 1, CH, 2, IT, SS$,12, CO :REM OUTPUT 
100 SYS XX, 6, CH, 7,A$,12 ,2, A, 19, B -.REM INPUT 

Again the read call for I/O = 6 will properly return: 

A$ = "PET COMPUTER", A = 5469, B = 1365.25 

Still confused, please contact me ! 
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0010 

0020 

0030 

0040 

0050 

0060 

0070 

0080 

0090 

0100 

0110 

0120 

0130 

0140 

0150 

0160 

0170 

0180 

0190 

0200 

0210 

0220 

0230 

0240 

0250 

0260 

0270 

0280 

0290 

0300; 

0310STADR 

0320SYSXX 

0330; 

0340IO 

0350DCH 

0360LNG 

0370STP 

03 80; 

03 90; LOCAL 

0400; 

0410DCE 

0420CRT 

0430FLN 

0440; 

0450; BASIC 

0460; 

0470DTP 

0480SLN 

0490SAD 

0500CAD 

0510ACC 

0520NCH 

0530ASB 

0540; 
027A-A511 0550START 
027C-8501 0560 
027E-A512 0570 
0280-8502 0580 

0590; 
0282-20F8CD 0600 



ROUTINE TO TRANSFER FLOATING POINT VARIABLES AND STRING 
VARIABLES BETWEEN PET'S MEMORY AND A D/A DISK BUFFER. 



WRITTEN BY J.HOOGSTRAAT 



BOX-20, 
CALGARY , 
PHONE 



SITE 7, 
T2M-4N3 



SSI 
ALTA 



(403)23 9-0900 



THIS ROUTINE IS TOTAL RELOCATABLE AND CAN BE LOADED ANYWHERE. 
FLOATING POINT VARIABLES ARE TRANSFERRED AS 5 BYTES ONLY. 



STRING VARIABLES ARE TRANSFERRED 
OR CARRIAGE RETURNS. 

THIS ROUTINE IS IDEALLY SUITABLE 
SINCE ALL BUFFER POINTERS CAN BE 



WITHOUT LINEFEEDS 



FOR DIRECT 
CALCULATED 



DISK ACCESSING, 
EXACTLY. 



.OS 
.BA 



634 



; FIRST CASSETTE BUFFER FOR NOW. 



LOCAL VARIABLES 



.DI 
.DI 

.DI 
.DI 
.DI 
.DI 



$1 
$11 

$B1 
$B2 
$B7 
$B8 



; SAVED 
; BASIC 

; SAVED 
; SAVED 
; SAVED 



ROUTINE 
ROUTINE 



START 
START 



ADDRESS. 
ADDRESS AS 



SYS XX. 



IO. 

DCH. 

REQ. 



LENGTH . 



VALUES 

.DI 
.DI 
.DI 



$F 
$D 
$5 



AREAS USED 



.DI 
.DI 
.DI 
.DI 
.DI 
.DI 
.DI 

LDA 
STA 
LDA 
STA 



$07 
$16 
$17 
$44 
$5E 
$77 
$100 

*SYSXX 
*STADR 
*SYSXX+1 
*STADR+1 



; SAVED DATA TYPE. 



;DISK COMMAND CHANNEL. 
; CARRIAGE RETURN. 
;FLT PNT WORD LENGTH. 



;DATA TYPE. 

; STRING LENGTH. 
; STRING ADDRESS. 
; CURRENT VARIABLE ADDR. 
ACCUMULATOR. 
;NEXT INPUT FIELD CHAR. 
;ASC BUFFER. 

; START START ADDR 
;FOR SELF RELOCATION. 



JSR CHKCOM ;UPTO NEXT FIELD. 
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02 85-209FCC 
0288-20D2D6 
02 8B-84B1 

028D-20F8CD 
0290-209FCC 
0293-20D2D6 
0296-84B2 

0298-20F8CD 
029B-209FCC 
029E-20E9DC 



02A1-A20F 
02A3-20C9FF 

02A6-A0C4 

02A8-A5B2 
02AA-0930 
02AC-9101 

02AE-A0C1 

02B0-B101 

02B2-20D2FF 

02B5-C8 

02B6-C0C6 

02B8-D0F6 

02BA-A201 

02BC-BD0001 

02BF-F00A 

02C1-20D2FF 

02C4-E8 

02C5-D0F5 

02C7-F002 

02C9-D0CD 

02CB-20CCFF 



02CE-A6B2 

02D0-A5B1 
02D2-2901 
02D4-F005 

02D6-20C9FF 
02D9-D003 

02DB-20C6FF 

02DE-20F8CD 



0610 
0620 
0630 
06 40; 
0650 
0660 
0670 
06 80 

06 90; 

07 00 AGAIN 
0710 
0720 
0730; 

07 40; ISSUE 

07 50; 

0760; 

0770 

07 80 

07 90; 

0800 

810; 

0820 

0830 

0840 

850; 

0860 

870OUTBP 

0880 

0890 

0900 

0910 

0920; 

0930 

0940BPOUT 

0950 

0960 

0970 

0980 

0990 

1000; 

1010AGAJJ 

1020; 

1030 BPDON 

1040; 

1050; ISSUE 

1060; 

1070; 

10 80 

1090; 

1100 

1110 

1120 

1130; 

1140OPOUT 

1150 

1160; 

117 0OPINP 

1180; 

1190TRFER 

1200; 



JSR EVAEXP 
JSR FLTFIX 
STY *I0 

JSR CHKCOM 
JSR EVAEXP 
JSR FLTFIX 
STY *DCH 

JSR CHKCOM 
JSR EVAEXP 
JSR BINASC 



EVALUATE EXPRESSION. 
CONVERT TO INTEGER. 
SAVE 10. 

UPTO NEXT FIELD. 
EVALUATE EXPRESSION. 
CONVERT TO INTEGER. 
SAVE DCH. 

UPTO NEXT FIELD. 
EVALUATE EXPRESSSION, 
CVT BPT TO ASC. 



PRINTtCE, "B-P:"CH;BP 



LDX #DCE 
JSR STODEV 

LDY tBPDCH- START 

LDA *DCH 
ORA #$30 
STA (STADDR) ,Y 

LDY #BPTXT-START 

LDA (STADR) ,Y 

JSR OUTCHR 

I NY 

CPY #BPTXE- START 

BNE OUTBP 

LDX #1 
LDA ASB,X 
BEQ BPDON 
JSR OUTCHR 
I NX 

BNE BPOUT 
BEQ BPDON 

BNE AGAIN 



JSR RESTIO 
PRINTtCH FOR INPUT OR OUTPUT 



TR' 



;OPEN CHANNEL • CE 



;SET RELOCATION. 

j STOW ASC OF DCH 
;IN THE TEXT. 



;SET RELOCATION. 
; OUTPUT "B-P:"CH, 



;EMD OF TEXT ? 
;NO, CONTINUE. 



; OUTPUT ASC OF BP 
;END OF ASC. 



; CONTINUE TILL END. 



LDX *DCH 

LDA *IO 

AND #1 
BEQ OPINP 

JSR STODEV 
BNE TRFER 

JSR STIDEV 

JSR CHKCOM 



CHECK IO. 

INPUT. 

OPEN OUTPUT CH. 

;OPEN INPUT CH. 
;UPTO NEXT FIELD, 
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02E1-A905 


1210 




LDA 


#FLN 


; DEFAULT LENGTH 


02E3-85B7 


1220 




STA 


*LNG 


;TO FLT PNT LENGTH. 


02E5-8516 


1230 
1240; 




STA 


*SLN 




02E7-A5B1 


1250 




LDA 


*IO 


; CHECK IO. 


02E9-2901 


1260 




AND 


#1 




02EB-F053 


1270 
12 80; 




BEQ 


RINPT 


;READ INPUT. 




1290; 


WRITE OUTPUT 


DATA 






1300; 






















1310; 










02ED-209FCC 


1320WOUTP 


JSR 


EVAEXP 


; EVALUATE EXPRESS ION . 


02F0-08 


1330 
13 40; 




PHP 




;SAVE STATUS 


02F1-A507 


1350 




LDA 


*DTP 


; CHARACTER STRING ? 


02F3-F01D 


1360 




BEQ FLTDT 


;NO FLT PNT VARIABLE. 




137 0; 












13 80; 


OUTPUT 


STRING EXPRESS 


ION- 




13 90; 










02F5-207DD5 


1400 
1410; 




JSR 


DSCSTR 


DISCARD TEMP STRING 


02F8-28 


1420 




PLP 




;GET STATUS 


02F9-100A 


1430 
1440; 




BPL 


WOUTS 


;NOT A CONTANT STRING 


02FB-A002 


1450WOUTC 


LDY 


#2 


;SAVE STRING ADDRESS 


02FD-B144 


1460STRAD 


LDA 


(CAD) ,Y 




02FF-991600 


1470 




STA 


SLN,Y 




0302-88 


1480 




DEY 






0303-10F8 


1490 
1500; 




BPL 


STRAD 




0305-20F8CD 


1510WOUTS 


JSR 


CHKCOM 


;UPTO NEXT FIELD. 


030 8-209FCC 


1520 




JSR 


EVAEXP 


; EVALUATE EXPRESSION. 


030B-20D2D6 


1530 




JSR 


FLTFIX 


; CONVERT TO INTEGER. 


030E-84B7 


1540 




STY 


*LNG 


;SAVE REQ. LENGTH. 


0310-D011 


1550 
1560; 




BNE 


WRITE 


; READY FOR OUTPUT. 




1570; 


OUTPUT 


FLT PNT DATA IK ACCUMULATOR 




15 80; 










0312-28 


1590FLTDT 


PLP 




; CLEAR STACK 




1600; 










0313-A563 


1610 




LDA 


*ACC+5 


; CORRECT SIGN ? 


0315-3004 


1620 
163 0; 




BMI 


FLTCR 


;NO. 


0317-065F 


1640 




ASL 


*ACC+1 


; REMOVE SIGN BIT 


0319-465F 


1650 
1660; 




LSR 


*ACC+1 


;FROM ACCUMULATOR. 


031B-A95E 


1670FLTCR 


LDA 


#L,ACC 


;SET OUTPUT 


031D-A000 


1680 




LDY 


#H f ACC 


; ADDRESS TO THE 


031F-8517 


1690 




STA 


*SAD 


;ACCUMLATOR. 


0321-8418 


1700 
1710; 




STY 


*SAD+1 






17 20; 


OUTPUT 


CHARACTER LOOP 






1730; 










0323-A000 


17 40WRITE 


LDY 


#0 


;SET CHAR POINTER. 




17 50; 










0325-A90D 


1760WRIT1 


LDA 


#CRT 


; DEFAULT TO CR. 


0327-C416 


1770 




CPY 


*SLN 


;MORE THAN ACTUAL LENGTH 


0329-B002 


17 80 




BCS 


WRIT2 


;YES, USE -CR. 


032B-B117 


17 90 




LDA 


(SAD) ,Y 


;USE INPUT CHAR. 


032D-20D2FF 


1800WRIT2 


JSR 


OUTCHR 


; OUTPUT THIS CHAR. 
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0330-C8 
0331-C4B7 
0333-D0F0 
0335-F061 



0337-D090 
033 9-F0A3 

033B-422D50 
033E-5820 



0340-206DCF 

0343-8517 
0345-8418 

0347-A507 
0349-85B8 



034B-F020 



034D-20F8CD 
0350-209FCC 
0353-20D2D6 

0356-98 
0357-A000 
0359-8516 
035B-9117 

035D-20D0D3 

0360-98 

0361-A002 

0363-9117 

0365-8545 

0367-8A 

0368-88 

0369-9117 

036B-8544 

036D-A000 

036F-A5B1 
0371-2902 
0373-F002 

0375-84B8 



1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900AGAIJ 

1910TRFEJ 

1920; 

1930BPTXT 

1940BPDCH 

1950BPTXE 

1960; 

1970; 

1980; 

1990; 

2000RINPT 

2010; 

2020 

2030 

2040; 

2050 

2060 

207 0; 

20 80; INPUT 

2090; 

2100 

2110; 

2120 

2130; 

2140 

2150 

2160 

217 0; 

2180 

2190 

2200 

2210 

2220; 

2230 

2240; 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330; 

23 40READI 

2350; 

2360 

2370 

23 80 

23 90; 

2400 



I NY 

CPY *LNG 
BNE WRIT1 
BEQ FIELD 



;ALL DOME ? 

;NO. 

;YES. 



INBETWEEN JUMP AND CONSTANTS 



BNE AGAJJ 
BEQ TRFER 

.BY 'B-P* 
.BY 'X • 
.DI = 



READ INPUT DATA 



JSR GETVAR ;GET VARIABLE ADDR. 



STA *SAD 
STY *SAD+1 

LDA *DTP 
STA *STP 



; DEFAULT INPUT ADDRESS. 
;TO FLT PNT VARIABLE 

;SAVE AND CHECK DATA TYPE. 



FLT PNT VARIABLE 

BEQ READI ;FLT PNT INPUT VARIABLE. 



INPUT STRING VARIABLE 

JSR CHKCOM 
JSR EVAEXP 
JSR FLTFIX 



UPTO NEXT FIELD. 
EVALUATE EXPRESSION. 
CONVERT TO INTEGER. 



;SAVE REQ. LLENGTH. 



TYA 

LDY #0 

STA *SLN 

STA (SAD),Y ;SAVE IN STRING INDEX. 

JSR GETSPC ;GET SPACE FOR STRING. 



TYA 

LDY #2 

STA (SAD) ,Y 

STA *CAD+1 

TXA 

DEY 

STA (SAD) f Y 

STA *CAD 

LDY #0 

LDA *IO 
AND #2 
BEQ READI 

STY *STP 



SAVE ADDRESS OF SPACE 

IN STRING INDEX 

AND CURRENT VARIABLE ADDRESS, 



;SET CHAR POINTER. 

; CHECK 10. 

; SPECIAL STRING READ ? 

;NO. 

; CHANGE FROM ' FF' TO '00' 
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0377-20CFFF 



037A- 
037C- 

037E- 
03 80- 



C90D 
■DO 04 

A6B8 
•D009 



0382-9144 



0384- 
0385- 
03 87- 
03 89- 

03 8B- 
03 8C- 

03 8E- 
0390- 
0392- 
03 94- 
0395- 
0396- 



■C8 

■C416 
-DOEE 
■FOOD 

-98 
-F0F4 

-AOOO 

-84B8 

-9117 

-A8 

-18 

-90EC 



0398- 
03 9A- 
03 9C- 
03 9E- 
03A0- 
03A2- 
03A4- 
03A6' 



-AOOO 
-E177 
-C92C 
-D00 8 
-A5B1 
-290C 
-F093 
-D0 8F 



03A8- 
03AB- 



20CCFF 
60 



INY 
CPY 
BNE 
BEQ 

TYA 
BEQ 

LDY 
STY 
STA 
TAY 
CLC 
BCC 



*SLN 

READ1 

FIELD 



READ 2 

#0 

*STP 
(SAD) ,Y 



READ3 



CHECK FOR MORE FIELDS 



2410; 

2420READ1 

2430; 

2440 

2450 

2460; 

2470 

24 80 
2490; 
2500READ2 
2510; 
2520READ3 
2530 
2540 
2550 
2560; 
2570READ4 

25 80 
2590; 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 

26 80 
2690 

2700FIELD 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2 810 

2820ADOME 
2 830 RTS 

2 840; 

2850; BASIC ROUTINES USED 
2 860; 

2 870EVAEXP .DE ?CC9F 
2 880CHKCOM .DE $CDF8 
2 890GETVAR .DE $CF6D 
2900GETSPC .DE $D3D0 
2910DSCSTR .DE SD57D 
2920FLTFIX .DE $D6D2 
2930BINASC .DE $DCE9 
2940RESTIO .DE $FFCC 
2950STIDEV .DE $FFC6 
2960STODEV .DE $FFC9 
2970INPCKR .DE $FFCF 
2 9 80OUTCHR . DE $FFD2 
2990 .EM 



JSR INPCHR ; INPUT A CHAR. 

CMP #CRT ; CARRIAGE RETURN ? 

BNE READ2 ;NO. 

LDX *STP ;YES. STRING ? 

BNE READ4 ;YES. TERMINATE STRING. 

STA (CAD) ,Y ;STOW CHAR INTO INPUT. 



;ALL DONE ? 

;NO. 

;YES. 



; INTERCEPT NULL STRINGS 

;SET RECORDED STRING LENGTH 

; RESET DATA TYPE. 

; TRUNCATE STRING IN INDEX. 



; CONT I NU E READ I NG . 



LDY 
LDA 
CMP 

BNE 
LDA 
AND 
BEQ 
BNE 



#0 
(NCH) ,Y 

#', 
ADONE 

*IO 

#12 

TRFEJ 

AGAIJ 



MORE FIELDS ARE PRESENT 
IF THERE IS A COMMA IN 
BASIC'S INPUT BUFFER. 
NO, WE QUIT. 
WHAT KIND 

;GO AGAIN, NO BP 
;GO AGAIN, BP SET 



TERMINATE ROUTINE 



JSR RESTIO ; RESTORE I/O DEVICE. 



EVALUATE EXPRESSION. 

CHECK FOR COMMA. 

GET BASIC VARIABLE. 

GET STRING SPACE. 

DISCARD TEMP STRING. 

FLOAT TO INTEGER. CONVERSION 

CONVERT FLT TO ASC. 

RESTORE DEFAULT I/O ADDRESSES, 

SET INPUT DEVICE. 

SET OUTPUTT DEVICE. 

INPUT CHARACTER. 

OUTPUT CHARACTER. 
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LABELS 








STADR 





0001 


SYSXX 


= 


0011 


10 


= 


00B1 


DCH 


= 


00B2 


LNG 


= 


00B7 


STP 


= 


00B8 


DCE 


= 


000F 


CRT 


= 


000D 


FLN 


= 


0005 


DTP 


= 


0007 


SLN 


= 


0016 


SAD 


= 


0017 


CAD 


= 


0044 


ACC 


= 


005E 


NCH 


= 


0077 


flk)U 


= 


0100 


START 


= 


027A 


AGAIN 


= 


0298 


OUTBP 


= 


02B0 


BPOUT 


= 


02BC 


AGAJJ 


= 


02C9 


BPDON 


= 


02CB 


OPOUT 


= 


02D6 


OPINP 


= 


02DB 


TRFER 


= 


02DE 


WOUTP 


= 


02ED 


WOUTC 


= 


02FB 


STRAD 


= 


02FD 


WOUTS 


- 


0305 


FLTDT 


= 


0312 


FLTCR 


- 


031B 


WRITE 


= 


0323 


WRIT1 


= 


0325 


WRIT2 


= 


032D 


AGAIJ 


= 


0337 


TRFEJ 


= 


0339 


BPTXT 


= 


033B 


BPDCH 


= 


033E 


BPTXE 


= 


0340 


RINPT 


= 


0340 


READI 


= 


036D 


READI 


= 


0377 


READ2 


= 


0382 


READ3 


= 


0384 


READ4 


= 


03 8B 


FIELD 


= 


0398 


ADONE 


= 


03A8 


/EVAEXP 


= 


CC9F 


/CHKCOM 


= 


CDF 8 


/GETVAR 


= 


CF6D 


/GETSPC 


= 


D3D0 


/DSCSTR 


= 


D57D 


/FLTFIX 


= 


D6D2 


/BINASC 


= 


DCE9 


/RESTIO 


= 


FFCC 


/STIDEV 


= 


FFC6 


/STODEV 


= 


FFC9 


/INPCHR 


= 


FFCF 


/OUTCHR 


= 


FFD2 
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HEXADECIMAL DUMP 



027A A5 11 85 01 A5 12 85 02 

0282 20 F8 CD 20 9F CC 20 D2 

028A D6 84 Bl 20 F8 CD 20 9F 

0292 CC 20 D2 D6 84 E2 20 F8 

029A CD 20 9F CC 20 E9 DC A2 

02A2 OF 20 C9 FF AO C4 A5 B2 

02AA 09 30 91 01 AO CI Bl 01 

02B2 20 D2 FF C8 CO C6 DO F6 

02BA A2 01 BD 00 01 FO OA 20 

02C2 D2 FF E8 DO F5 FO 02 DO 

02CA CD 20 CC FF A6 B2 A5 Bl 

02D2 29 01 FO 05 20 C9 FF DO 

02DA 03 20 C6 FF 20 F8 CD A9 

02E2 05 85 B7 85 16 A5 Bl 29 

02EA 01 FO 53 20 9F CC 08 A5 

02F2 07 FO ID 20 7D D5 28 10 

02FA OA AO 02 Bl 44 99 16 00 

0302 88 10 F8 20 F8 CD 20 9F 

030A CC 20 D2 D6 84 B7 DO 11 

0312 28 A5 63 30 04 06 5F 46 

031A 5F A9 5E AO 00 85 17 84 

0322 18 AO 00 A9 OD C4 16 BO 

032A 02 Bl 17 20 D2 FF C8 C4 

0332 B7 DO FO FO 61 DO 90 FO 

033A A3 42 2D 50 33 20 20 6D 

03 42 CF 85 17 84 18 A5 07 85 

034A B8 FO 20 20 F8 CD 20 9F 

0352 CC 20 D2 D6 98 AO 00 85 

035A 16 91 17 20 DO D3 98 AO 

0362 02 91 17 85 45 8A 88 91 

036A 17 85 44 AO 00 A5 Bl 29 

0372 02 FO 02 84 B8 20 CF FF 

037A C9 OD DO 04 A6 B8 DO 09 

0382 91 44 C8 C4 16 DO EE FO 

03 8A OD 98 FO F4 AO 00 84 B8 

03 92 91 17 A8 18 90 EC AO 00 

03 9A Bl 77 C9 2C DO 08 A5 Bl 

03A2 29 OC FO 93 DO 8F 20 CC 
03AA FF 60 
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60000 


REM DATA 


STATEMENTS 


FOR 


D/A BUFFEB 


u ROUTINE 


60001 


REM 


















60002 


REM TOTAL 


, LENGTH 306 BYTES 








60003 


REM 


















60004 


DATA 


165, 


17, 


133, 


1, 


165, 


18, 


133, 


2 


60005 


DATA 


32, 


248, 


205, 


32, 


159, 


204, 


32, 


210 


60006 


DATA 


214, 


132, 


177, 


32, 


248, 


205, 


32, 


159 


60007 


DATA 


204, 


32, 


210, 


214, 


132, 


178, 


32, 


248 


60008 


DATA 


205, 


32, 


159, 


204, 


32, 


233, 


220, 


162 


60009 


DATA 


15, 


32, 


201, 


255, 


160, 


196, 


165, 


17 8 


60010 


DATA 


9, 


48, 


145, 


1, 


160, 


193, 


177, 


1 


60011 


DATA 


32, 


210, 


255, 


200, 


192, 


198, 


208, 


246 


60012 


DATA 


162, 


1, 


189, 


0, 


1, 


240, 


10, 


32 


60013 


DATA 


210, 


255, 


232, 


208, 


245, 


240, 


2, 


208 


60014 


DATA 


205, 


32, 


204, 


255, 


166, 


178, 


165, 


, 177 


60015 


DATA 


41, 


1, 


r 240, 


5, 


32, 


201, 


255, 


, 208 


60016 


DATA 


3, 


32, 


, 198 


, 255, 


32, 


248, 


, 205, 


, 169 


60017 


DATA 


5, 


133, 


183, 


133, 


22, 


165, 


, 177, 


41 


60018 


DATA 


1, 


240, 


83, 


32, 


159, 


204, 


8, 


165 


60019 


DATA 


7, 


240, 


29, 


32, 


125, 


213, 


40, 


16 


60020 


DATA 


10, 


160, 


2 


r 177, 


68, 


153, 


, 22, 





60021 


DATA 


136, 


16, 


, 248 


r 32, 


, 248 


, 205, 


, 32 


, 159 


60022 


DATA 


204 


r 32 


r 210 


, 214 


, 132, 


r 183, 


, 208 


r 17 


60023 


DATA 


40 


, 165 


r 99 


r 48 


4 


6 


r 95 


r 70 


60024 


DATA 


95 


, 169 


r 94 


, 160 


r 


, 133 


, 23 


, 132 


60025 


DATA 


24 


t 160 


r 


, 169 


r 13 


r 196 


, 22 


, 176 


60026 


DATA 


2 


, 177 


, 23 


, 32 


, 210 


, 255 


, 200 


, 196 


60027 


DATA 


183 


, 208 


, 240 


, 240 


r 97 


, 208 


, 144 


r 240 


60028 


DATA 


163 


, 66 


t 45 


, 80 


r 88 


, 32 


, 32 


r 109 


60029 


DATA 


207 


r 133 


, 23 


, 132 


r 24 


, 165 


, 7 


, 133 


60030 


DATA 


184 


, 240 


, 32 


, 32 


, 248 


, 205 


r 32 


, 159 


60031 


DATA 


204 


r 32 


, 210 


, 214 


, 152 


, 160 


r 


, 133 


60032 


DATA 


22 


, 145 


, 23 


r 32 


r 208 


, 211 


, 152 


, 160 


60033 


DATA 


2 


, 145 


, 23 


, 133 


T 69 


, 138 


, 136 


, 145 


60034 


DATA 


23 


, 133 


, 68 


, 160 


t o 


, 165 


, 177 


r 41 


60035 


DATA 


2 


, 240 


, 2 


, 132 


, 184 


, 32 


, 207 


, 255 


60036 


DATA 


201 


t 13 


, 208 


, 4 


, 166 


, 184 


, 208 


, 9 


60037 


DATA 


145 


, 68 


, 200 


, 196 


, 22 


, 208 


, 23 8 


, 240 


60038 


DATA 


13 


, 152 


, 240 


, 244 


, 160 


, o 


, 132 


, 184 


60039 


DATA 


145 


, 23 


, 168 


, 24 


, 144 


, 236 


, 160 


, 


60040 


DATA 


177 


r H9 


, 201 


, 44 


, 208 


, 8 


, 165 


, 177 


60041 


DATA 


41 


, 12 


, 240 


, 147 


, 208 


, 143 


, 32 


, 204 


60042 


DATA 


255 


, 96 














60043 


END 
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100 REM A RANDOM FILE DEMONSTRATION 
110 REM WHICH NEEDS NO BLOCK-ALLOCATE 
120 REM BY USING THE SPACE ALLLOCATED 
130 REM OF ANY PREVIOUS CREATED FILE. 
140 REM 
150 REM THE RANDOM UPDATES CAN BE BITS 

16 REM OF INFORMATION OF UPTO 254 

17 REM BYTES OF STRING INFORMATION. 
180 REM 

190 REM FLOATING POINT VARIABLES ALWAYS 
200 REM ARE ONLY 5 BYTES LONG. THE FIVE 
210 REM BYTES PET USES. 
220 REM 

230 REM THIS DEMONSTRATION NEEDS THE 
240 REM D/A BUFFER ROUTINE LOADED AT 
250 REM XX=634. 
260 REM 
270 REM TESTING DOME ON DISK DRIVE 1 

2 80 REM 

290 REM ======================= 

3 00 REM J.HOOGSTRAAT 
310 REM 

320 REM BOX 20, SITE 7, SS 1 
330 REM CALGARY, ALTA. T2M-4N3 
3 40 REM PH(403) 23 9-0900 

3 50 REM ======================= 

360 REM 
37 REM 
3 80 REM CREATE A SEQUENTIAL TEST FILE 

3 90 REM 

400 REM 

410 F$="TESTING-TESTING" 

420 XX=634:GOSUB1120 

430 DK=1:CE=15:CS=2:CR=3:NN=200 

440 DIMT(40) ,S(40) 

450 A$="I"+CHR$(48+DK) rOPENCE, 8,CE, A$ 

460 A$="@"+CHR$(48+DK)+" : "+F$+",U,W" 

470 OPENCS,8,CS,A$ 

480 A$=" .. ." :FORI=lT03:A$=A$+A$:NEXT 

490 F0RI=1T027:PRINT#CS,A$:NEXT 

500 CLOSECS 

510 REM 

520 REM FIND TRACK AND SECTOR EXTENTS 

530 REM FOR CREATED TEST FILE 

540 REM 

550 REM 

560 L=LEN(F$) 

570 A$=CHR$(48+DK)+" : "+F$+",U,R" 

5 80 OPENCS, 8, CS,A$ 

590 T=18:S=1:N=0 

600 PRINT#CE,"U1:"CS;DK;T;S 

610 SYSXX,0,CS,1,S$,1:S=ASC(S$) 

620 FORI=2T0255STEP32 

630 SYSXX,0,CS,I,A$,2,T$,1,S$,1,N$,L 

640 IFASC(A$) >128ANDF$=N$THEN670 

650 NEXT:IFS<255THEN600 

660 PRINT"FILE "F$" NOT FOUND" :END 

67 N=N+1 
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680 T(N)=ASC(T$) :S (N) =ASC(S$) 

6 90 PRINT#CE, "Ul : "CS;DK;T(N) ;S(N) 
700 GET#CS,T$,T$,S$:IFT$<>""THEN67 
710 CLOSECS 

7 20 REM 

730 REM OPEN RANDOM FILE WITH THE TEST 
7 40 REM FILE EXTENTS. FILL IT ALL UP 

7 50 REM 

760 REM 

770 PRINT" [cs]" 

7 80 OPENCR, 8,CR,"#" 

7 90 FORI=lTON:A$=CHR$(I+4 8) 

800 F0RL=1T05:A$=A$+A$+A$:NEXT 

810 PRINT#CE, "U1:"CR;DK;T(I) ;S(I) 

820 SYSXX,1,CR,2,I,-1,A$,NN 

830 SYSXX,0,CR,2,S,U r A$,NN 

840 PRINT" [dn] BLOCK" ;S:PRINTA$; 

850 PRINT#CE,"U2:"CR;DK;T(I) ;S(I) 

860 NEXT 

870 REM 

880 REM UPDATE SOME TEXT IN A BLOCK 

890 REM 

900 REM 

910 REM 

920 INPUT" [dn] BLOCK, POS, TEXT" ;B,P,B$ 

930 PRINT" [cs] " 

940 FORI=lTON 

950 PRINT#CE f "Ul : "CR;DK;T( I) ;S(I) 

960 IFIOBTHEN990 

970 SYSXX,l,CR f 7,P 

980 SYSXX,1,CR,11+P,B$,LEN(B$) 

990 SYSXX,0,CR,2,S,U,A$,NN 

1000 PRINT" [dn] BLOCK "S; 

1010 PRINT" LAST UPDATE AT POS" ;U 

1020 PRINTA$; 

1030 PRINT#CE,"U2:"CR;DK;T(I) ;S(I) 

1040 NEXT 

1050 GOTO920 

106 REM 

107 REM LOAD UP THE D/A BUFFER ROUTINE 
10 80 REM AT LOCATION XX. THIS ROUTINE 
10 90 REM A TOTAL RELOCATABLE. 

1100 REM 

1110 REM 

1120 FORI=lTO306:READA:POKEXX-l+I / A:NEXT 

1130 RETURN 

1140 REM 

1150 REM INSERT DATA STATEMENTS 

1160 REM FOR D/A BUFFER ROUTINE HERE 

117 REM TOTAL LENGTH 306 BYTES 

1180 REM 
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PET to Hea thkit H14 Printer Serial Interface 

The following article was submitted by Sheldon H. Dean 
of Calgary, Alberta. Mr. Dean's interface is a modified 
version of a serial interface by Harvey B. Herman and Charles 
Pate that appeared in the March/April, 1980 issue of COMPUTE 
Magazine. Unlike the circuit in COMPUTE (and also one in an 
earlier Transactor), Sheldon's frees up the parallel user 
port by including an onboard oscillator for the UART 
clock. .. . 

This interface provides a 300 baud (bps) 
asynchronous communication interface between the 
PET implemented, IEEE-488 bus and the Heathkit H14 
line printer using the 20mA current loop standard. 
The interface is consructed using standard TTL 
devices. It provides true upper and lower case 
ASCII without the necessity of a handshake between 
the PET and the H14 printer. The interface plugs 
directly into the IEEE port on the PET and a simple 
wire pair connects the interface to the H14 printer 
by a standard DB-25S cable connector. 

Sheldon H. Dean 

Although Sheldon has designed the interface for his Heathkit 
printer, it could undoubtedly be connected to other equipment 
that uses the 20mA current loop convention. 
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nc 



16 



20 



IC1 



40 
39 
38 
37 
36 
35 
34 
33 
32 
31 
30 
29 
28 
27 
26 
25 
24 
23 
22 
21 



1 



~H> 



-t> 



Fig. 2 
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C4 



10 




C4 



11 




IC4 



IC4 




IC4 



+5 o- 



aV 



^7 



pin: 

IEEE [PET; 
-o D107 (C) 



^ D108 (D) 
„ D106 (B) 



OD105 (A) 



-o D104 (4) 



-o D103 (3) 



-OD102 (2) 
-OD101 (1) 



_0 -20mA (18)* 



o NRFD (7) 



•O NDAC (8) 
-°+20mA (19)* 



-°GND (12) 



13 X /-,11 

IC3 I f— OATN (11) 
12 




o DAV (6) 



Figure One 



* see note 4 




+5 




C4 



^7 




■O +5 volts 



C5 



^7 



Figure Three 



IC# +5 volts 



1 
2 
3 
4 
5 
6 



1,34,37 

14 

14 

14 

16 

4,8 



ground 

3,16,21,35,36,38,39 

7 

7 

7 

8,9 

1 



This table lists the power 
requirements of the various ICs 



TABLE ONE 



FARTS LIT 



CI .001 uF mylar 

C2 .1 uF mylar 

C3 .005 uF mylar 

C4 100 uF, 6V electrolytic 

C5 33 uF, 10V tantalum electrolytic 



Rl 220 ohm, 1/4 watt 

R2 10000 ohm, 1/4 watt 

R3 2200 ohm, i/4 watt 

R4 1000 ohm, 1/4 watt 

R5 50000 ohm, 10 turn precision potentiometer (see note 1) 

IC1 Intersil IM6402 UART or equivalent (see note 2) 

IC2 7400 Quad 2 input NAND gate 

IC3 7402 Quad 2 input NOR gate 

IC4 7404 Hex Inverter 

IC5 74123 Monostable multivibrator 

IC6 555 Timer 

IC7 7805 Five volt regulator 



Tl 9 volt DC 300 mA calculator power supply transformer 

SI 40 pin IC socket 

S2, S3, S4 14 pin IC socket 

55 16 pin IC socket 

56 8 pin IC socket 



Cinch 251-12-13-160 edge connector or equivalent 

Amphenol DB-25S cable connector or equivalent 

Radio Shack 276-153 printed circuit board or equivalent 



NOTES: 



1. The output of figure two is adjusted to 4800 Hz using R5. This 
provides a data transfer rate of 300 bps. A frequency counter 
is necessary to accurately accomplish this. 

2. Any pin compatible UART may be used such as a SI 883 or AY-3-1015. 

3. The circuit may be implemented using M0S devices for most gates. 
This will result in reduced power consumption. 

4. Pin 18 and pin 19 are pins of the DB-25S connector and provide 
the -20 mA and +20 mA signals for the printer. All other pin 
assignments are on the PET IEEE edge connector. 
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nifisiiitiis Henr y Trou p 

There's been quite a lot written about disk files, and 
tape files, but very little about the PET's logical files. 
Here are some suggestions and a routine which may have some 
utility. 

When you OPEN a file, you specify a logical file number, a 
device number, and (optionally) a secondary address, and 
filename. Then the PET does what is necessary. This 
information is saved, the number of files open is incremented 
and checked, and action is taken to open the file. 

The file data is stored in three tables - logical files, 
devices, and secondary addresses. The tables start at $0251 
($0242 old ROM), $025B ($024C), and $0265 ($0256) respectively. 
The count of number of files is at $00AE ($0262). The filename 
is not saved - it's sent to the device. 

The secondary address is OR'd with $60, and then stored. 
If no SA is specified, a value of $FF will be found in the 
table. 

When a file is closed, the file last opened is swapped 

into its place. So if you open files 1, 3, and 5; and then 

close 1, the file table contains entries for 5 and 3 (plus a 
dummy copy of 5) . 

Now, we can write a routine to check on file status. Here it 
is: 

10 REM FIND FILE STATUS 

15 INPUT "LOGICAL FILE NUMBER ";LF 

20 NF « PEEK (17 4): IF NF = THEN PRINT "NO FILES 

OPEN": END 

30 PF = 0:FOR X=l TO NF:IF PEEK ( 592 +X) = LF THEN PF = X 

40 NEXTX:IF PF = THEN PRINT "FILE" LF "NOT OPEN": END 

50 PRINT "LOGICAL FILE";LF "OPEN" 

52 PRINT "ON DEVICE"; PEEK (602+PF) 

55 P = PEEK(612+PF) AND 159 :IF P = 159 THEN P = 

60 PRINT "WITH SECONDARY ADDRESS" ;P 

To use this, just open the files, and GOTO10. If you RUN the 
program, you'll abort all files. 

You could use a version of this routine if you're doing 
dynamic LOADs - files are not affected by the LOAD, and you can 
find them. 
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rp*5 




BASIC 4.0 MEMORY MAP 



Compiled by Jim Butterfield 



There are some differences between usage between the 40- and 
80-column machines. 



Hex 
0000-0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
000A 
000B 
000C 

000D-000F 
0010 

0011-0012 
0013-0015 
0016-001E 
001F-0022 
0023-0027 
0028-0029 
002A-002B 
002C-002D 
002E-002F 
0030-0031 
0032-0033 
0034-0035 
0036-0037 
0038-0039 
003A-003B 
003C-003D 
003E-003F 
0040-0041 
0042-0043 
0044-0045 
0046-0047 
0048-0049 
004A 

004B-0050 
0051-0053 
0054-005D 
005E 

005F-0062 
0063 
0064 
0065 

0066-006B 
006C 
006D 

006E-006F 
0070-0087 
0077-0078 
0088-008C 



Decimal 
0-2 
3 
4 
5 

6 

7 

8 

9 

10 

11 

12 

13-15 
16 

17-18 
19-21 
22-30 
31-34 
35-39 
40-41 
42-43 
44-45 
46-47 
48-49 
50-51 
52-53 
54-55 
56-57 
58-59 
60-61 
62-63 
64-65 
66-67 
6 8-6 9 
70-71 
72-73 
74 

75-80 
81-83 
84-93 
94 

95-98 
99 
100 
101 

102-107 
108 
106 

110-111 
112-135 
119-120 
136-140 



Description 

USR jump 

Search character 

Scan-between-quotes flag 

Input buffer pointer; # of subscripts 

Default DIM flag 

Type: FF=string, 00=numeric 

Type: 80=integer, 00=floating point 

Flag: DATA scan; LIST quote; memory 

Subscript flag; FNX flag 

0=INPUT; $40=GET; $98=READ 

ATN sign/Comparison Evaluation flag 

Disk status DS$ descriptor 

Current I/O device for prompt-suppress 

Integer value (for SYS, GOTO etc) 

Pointers for descriptor stack 

Descriptor stack (temp strings) 

Utility pointer area 

Product area for multiplication 

Pointer: Start-of-Basic 

Pointer: Start-of-Variables 

Pointer: Start-of-Arrays 

Pointer: End-of-Arrays 

Pointer: String-storage (moving down) 

Utility string pointer 

Pointer: Limit-of-memory 

Current Easic line number 

Previous Basic line number 

Pointer: Easic statement for CONT 

Current DATA line number 

Current DATA address 

Input vector 



Current variable 
Current variable 
Variable pointer 
Y-save; op-save; 
Comparison symbol 



name 
address 
for FOR/NEXT 
Basic pointer 
accumulator 
etc 



save 



Misc work area, pointers, 

Jump vector for functions 

Misc numeric work area 

Accum#l: Exponent 

Accum#l: Mantissa 

Accum#l: Sign 

Series evaluation constant pointer 

Accum#l hi-order (overflow) 

Accum#2: Exponent, etc. 

Sign comparison, Acc#l vs #2 

Accum#l lo-order (rounding) 

Cassette buff len/Series pointer 

CHRGET subroutine; get Basic char 

Basic pointer (within subrtn) 

Random number seed. 
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00 8D- 


008F 


141-143 


0090- 


0091 


144-145 


0092- 


0093 


146-147 


0094- 


0095 


148-149 


0096 




150 


0097 




151 


0098 




152 


0099- 


009A 


153-154 


009B 




155 


009C 




156 


009D 




157 


009E 




158 


009F 




159 


00A0 




160 


00A1 




161 


00A3- 


■00A4 


163-164 


00A5 




165 


00A6 




166 


00A7 




167 


00A8 




168 


00A9 




169 


OOAA 




170 


OOAB 




171 


00 AC 




17 2 


OOAD 




173 


OOAE 




17 4 


OOAF 




17 5 


OOBO 




176 


00B1 




177 


00B2 




178 


00B3 




179 


00B4 




180 


00B5 




181 


00B7 




183 


00B9 




185 


OOBA 




186 


OOBB- 


■OOBC 


187-188 


OOBD 




189 


OOBE 




190 


OOBF 




191 


OOCO- 


•00C1 


192-193 


00C2 




194 


00C3 




195 


00C4- 


■00C5 


196-197 


00C6 




198 


00C7- 


-00C8 


199-200 


00C9- 


■OOCA 


201-202 


OOCB- 


■OOCC 


203-204 


OOCD 




205 


OOCE 




206 


OOCF 




207 


OODO 




208 


00D1 




209 


00D2 




210 


00D3 




211 


00D4 




212 


00D5 




213 


00D6- 


-00D7 


214-215 


00D8 




216 


00D9 




217 



Jiffy clock for TI and TI$ 

Hardware interrupt vector 

BRK interrupt vector 

NMI interrupt vector 

Status word ST 

Which key down; 255=no key 

Shift key: 1 if depressed 

Correction clock 

Keyswitch PIA: STOP and RVS flags 

Timing constant for tape 

Load=0, Verify=l 

Number of characters in keybd buffer 

Screen reverse flag 

IEEE output; 255=character pending 

End-of-line-for-input pointer 

Cursor log (row, column) 

IEEE output buffer 

Key image 

0=flash cursor 

Cursor timing countdown 

Character under cursor 

Cursor in blink phase 

EOT received from tape 

Input from screen/from keyboard 

X save 

How many open files 

Input device, normally 

Output CMD device, normally 3 

Tape character parity 

Byte received flag 

Logical Address temporary save 

Tape buffer character; MLM command 

File name pointer; MLM flag, counter 

Serial bit count 

Cycle counter 

Tape writer countdown 

Tape buffer pointers, #1 and #2 

Write leader count; read passl/2 

Write new byte; read error flag 

Write start bit; read bit seq error 

Error log pointers, passl/2 

0=Scan/l-15=Count/$40=Load/$80=End 

Write leader length; read checksum 

Pointer to screen line 

Position of cursor on above line 

Utility pointer: tape, scroll 

Tape end addrs/End of current program 

Tape timing constants 

0=direct cursor, else programmed 

Tape read timer 1 enabled 

EOT received from tape 

Read character error 

# characters in file name 

Current file logical address 

Current file secondary addrs 

Current file device number 

Right-hand window or line margin 

Pointer: Start of tape buffer 

Line where cursor lives 

Last key/checksum/misc. 



OODA- 

OODC 

OODD 

OODE 

OODF 

OOEO- 

OOEO- 

00E2 

00E3 

00E4 

00E5 

00E6 

00E7 

00E8 

00E9- 

OOEB- 

00F9- 

OOFB- 

OOFD- 

OlOO- 

0100- 

0100- 

0200- 

0251- 

025B- 

0265- 

026F- 

027A- 

033A- 

033A 

033B 

033C 

033D 

033E 

033F 

0341 

0342 

0353 

03EE 

03 FA 

03FC 

0400 

8000 

8000 

9000 

BOOO 

EOOO 

E810 

E820 

E840 

E880 

FOOO 



OODB 



00F8 
00E1 



OOEA 
OOEC 
OOFA 
OOFC 
OOFE 
010A 
013E 
01FF 
0250 
025A 
0264 
026E 
0278 
0339 
03F9 



-0340 

0352 
0380 
•03F7 
■03FB 

•7FFF 
•83FF 
■87FF 
•AFFF 
•DFFF 
•E7FF 
■E813 
•E823 
•E84F 
-E881 
•FFFF 



218- 
220 
221 
222 
223 
224- 
224- 
226 
227 
228 
229 
230 
231 
232 
233- 
235- 
249- 
251- 
253- 
256- 
256- 
256- 
512- 
593- 
603- 
613- 
623- 
634- 
826- 
826 
827 
82 8 
829 
830 
831 
833 
834 
851 
1006 
1018 
1020 
1024 
32768 
32768 
36864 
45056 
57344 
59408 
59424 
59456 
59520 
61440 
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File name pointer 
Number of INSERTS outstanding 
Write shift word/read character in 
remaining to write/read 



248 
225 



234 
236 
250 
252 
254 
266 
318 
511 
592 
602 
612 
622 
632 
825 
1017 



Tape blocks 

Serial word 

(40-column) 

(80-column) 

( 80-column) 

(80-column) 

(80-column) 

(80-column) 

(80-column) 

(80-column) 

( 80-column) 

( 80-column) 

( 80-column) 

Cassette status, 

MLM pointer/Tape 



buffer 

Screen line wrap table 

Top f bottom of window 

Left window margin 

Limit of keybd buffer 

Key repeat flag 

Repeat countdown 

New key marker 

Chime time 

HOME count 

Input vector 

Output vector 
#1 and #2 
start address 



MLM, DOS pointer, misc. 

STR$ work area, MLM work 

Tape read error log 

Processor stack 

MLM work area; Input buffer 

File logical address table 

File device number table 

File secondary adds table 

Keyboard input buffer 

Tape#l input buffer 

Tape#2 input buffer 

DOS character pointer 

DOS drive 1 flag 

DOS drive 2 flag 

DOS length/write flag 

DOS syntax flags 
-832 DOS disk ID 

DOS command string count 
850 DOS file name buffer 
896 DOS command string buffer 
1015 (80-column) Tab stop table 
1019 Monitor extension vector 

IEEE timeout defeat 
32767 Available RAM including expansion 
337 91 (40-column) Video RAM 
■34815 (80-column) Video RAM 
•45055 Available ROM expansion area 
■57343 Basic, DOS, Machine Lang Monitor 
59391 Screen, Keyboard, Interrupt programs 
■59411 PIA 1 - Keyboard I/O 
■59427 PIA 2 - IEEE-488 1/0 
•59471 VIA - I/O and timers 
■59521 (80-column) CRT Controller 
•65535 Reset, I/O handlers, Tape routines 



PET 4.0 ROM Routines Jim Butterf ield, 

Toronto 

The 40-character and 8C-character machines are the same 
except for addresses $E000-$E7FF. 

This map shows where various routines lie. The first address 
is not necessarily the proper entry point for the routine. 
Similarly, many routines require register setup or data 
preparation before calling. 

Description 
B000-B065 Action addresses for primary keywords 
B066-B093 Action addresses for functions 
B094-B0B1 Hierarchy and action addresses for operators 
B0B2-B20C Table of Basic keywords 
B20D-E321 Basic messages, mostly error messages 
B322-B34F Search the stack for FOR or GOSUB activity 
B350-B3 92 Open up space in memory 
B3 93-B3 9F Test: stack too deep? 
B3A0-B3CC Check available memory 
B3CD Send canned error message, then: 
B3FF-B41E Warm start; wait for Basic command 
B41F-B4B5 Handle new Basic line input 
B4B6-B4E1 Rebuild chaining of Basic lines 
B4E2-B4FA Receive line from keyboard 
B4FB-B5A2 Crunch keywords into Basic tokens 
B5A3-B5D1 Search Basic for given line number 
B5D2 Perform NEW, and; 
B5EC-B621 Perform CLR 

B622-B62F Reset Easic execution to start 
B630-B6DD Perform LIST 
B6DE-B7 84 Perform FOR 
B7 85-B7B6 Execute Basic statement 
E7B7-B7C5 Perform RESTORE 
B7C6-B7ED Perform STOP or END 
B7EE-B807 Perform CONT 
B80 8-B812 Perform RUN 
B813-B82F Perform GOSUB 
B830-B85C Perform GOTO 
B85D Perform RETURN, then: 
B883-B890 Perform DATA: skip statement 
B891 Scan for next Basic statement 
B894-B8B2 Scan for next Basic line 
B8B3 Perform IF, and perhaps: 
B8C6-B8D5 Perform REM: skip line 
B8D6-B8F5 Perform ON 
B8F6-B92F Accept fixed-point number 
B930-BA87 Perform LET 
BA88-BA8D Perform PRINT* 
BA8E-BAA1 Perform CMD 
BAA2-BB1C Perform PRINT 
BB1D-BB39 Print string from memory 
BB3A-BB4B Print single format character 
BB4C-BB7 9 Handle bad input data 
BB7A-BBA3 Perform GET 
BBA4-BBBD Perform INPUT* 
BBBE-EBF4 Perform INPUT 
BBF5-BC01 Prompt and receive input 
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BC02-BCF6 Perform READ 

BCF7-ED18 Canned Input error messages 

BD19-BD71 Perform NEXT 

BD72-BD97 Check type mismatch 

BD98 Evaluate expression 

BEE9 Evaluate expression within parentheses 

BEEF Check parenthesis, comma 

BF00-BF0B Syntax error exit 

BF8C-C046 Variable name setup 

C047-C085 Set up function references 

C0 86-C0B5 Perform OR, AND 

C0B6-C11D Perform comparisons 

C11E-C12A Perform DIM 

C12B-C1BF Search for variable 

C1C0-C2C7 Create new variable 

C2C8-C2D8 Setup array pointer 

C2D9-C2DC 32768 in floating binary 

C2DD-C2FB Evaluate integer expression 

C2FC-C4A7 Find or make array 

C4A8 Perform FRE, and: 

C4BC-C4C8 Convert fixed-to-floating 

C4C9-C4CE Perform POS 

C4CF-C4DB Check not Direct 

C4DC-C509 Perform DEF 

C50A-C51C Check FNx syntax 

C51D-C58D Evaluate FNx 

C58E-C59D Perform STR$ 

C59E-C5AF Do string vector 

C5B0-C61C Scan, set up string 

C61D-C669 Allocate space for string 

C66A-C74E Garbage collection 

C7 4F-C7 8B Concatenate 

C78C-C7B4 Store string 

C7B5-C810 Discard unwanted string 

C811-C821 Clean descriptor stack 

C822-C835 Perform CHR$ 

C836-C861 Perform LEFT$ 

C862-C86C Perform RIGHT$ 

C86D-C896 Perform MID$ 

C897-C8B1 Pull string data 

C8B2-C8B7 Perform LEN 

C8B8-C8C0 Switch string to numeric 

C8C1-C8D0 Perform ASC 

C8D1-C8E2 Get byte parameter 

C8E3-C920 Perform VAL 

C921-C92C Get two parameters for POKE or WAIT 

C92D-C942 Convert floating-to-fixed 

C943-C959 Perform PEEK 

C95A-C962 Perform POKE 

C963-C97E Perform WAIT 

C97F-C985 Add 0.5 

C986 Perform subtraction 

C998-CA7C Perform addition 

CA7D-CAB3 Complement accum#l 

CAB4-CAB8 Overflow exit 

CAB9-CAF1 Multiply-a-byte 

CAF2-CB1F Constants 

CB20 Perform LOG 

CB5E-CBC1 Perform multiplication 

CBC2-CBEC Unpack memory into accum#2 



CBED-CC09 Test & adjust accumulators 

CC0A-CC17 Handle overflow and underflow 

CC18-CC2E Multiply by 10 

CC2F-CC33 10 in floating binary 

CC34 Divide by 10 

CC3D Perform divide-by 

CC45-CCD7 Perform divide-into 

CCD8-CCFC Unpack memory into accum#l 

CCFD-CD31 Pack accum#l into memory 

CD32-CB41 Move accum#2 to #1 

CD42-CD50 Move accum#l to #2 

CD51-CD60 Round accum#l 

CD61-CD6E Get accum#l sign 

CD6F-CD8D Perform SGN 

CD8E-CD90 Perform ABS 

CD91-CDD0 Compare accum#l to memory 

CDD1-CE01 Floating-to-fixed 

CE02-CE28 Perform INT 

CE29-CEB3 Convert string to floating-point 

CEB4-CEE8 Get new ASCII digit 

CEE9-CEF8 Constants 

CF7 8 Print IN, then: 

CF7F-CF92 Print Basic line # 

CF93-D0C6 Convert floating-point to ASCII 

D0C7-D107 Constants 

D10 8 Perform SQR 

D112 Perform power function 

D14B-D155 Perform negation 

D156-D183 Constants 

D184-D1D6 Perform EXP 

D1D7-D220 Series evaluation 

D221-D22 8 RND constants 

D229-D281 Perform RND 

D282 Perform COS 

D289-D2D1 Perform SIN 

D2D2-D2FD Perform TAN 

D2FE-D32B Constants 

D32C-D35B Perform ATN 

D35C-D398 Constants 

D3 99-D3B5 CHRGET sub for zero page 

D3B6-D471 Basic cold start 

D472-D716 Machine Language Monitor 

D717-D7AB MLM subroutines 

D7AC-D802 Perform RECORD 

D803-D837 Disk parameter checks 

D83 8-D872 Dummy disk control messages 

D873-D919 Perform CATALOG or DIRECTORY 

D91A-D92E Output 

D92F-D941 Find spare secondary address 

D942-D976 Perform DOPEN 

D977-D990 Perform APPEND 

D991-D9D1 Get disk status 

D9D2-DA06 Perform HEADER 

DA07-DA30 Perform DCLOSE 

DA31-DA64 Set up disk record 

DA6 5-DA7D Perform COLLECT 

DA7E-DAA6 Perform BACKUP 

DAA7-DAC6 Perform COPY 

DAC7-DAD3 Perform CONCAT 

DAD4-DE0C Insert command string values 



DB0D-DB3 9 Perform DSAVE 

DE3A-DB6 5 Perform DLOAD 

DB66-DB9 8 Perform SCRATCH 

DB99-DB9D Check Direct command 

DB9E-DBD6 Query ARE YOU SURE? 

DBD7-DBE0 Print BAD DISK 

DBE1-DBF9 Clear DS$ and ST 

DBFA-DC67 Assemble disk command string 

DC6 8-DE29 Parse Basic DOS command 

DE2C-DE48 Get Device number 

DE49-DE86 Get file name 

DE87-DE9C Get small variable parameter 

** Entry points only for E000-E7FF ** 



E000 

E0A7 

E116 

E202 

E442 

E455 

E600 
** 

F000-F0D1 

F0D2 

F0D5 

F0D7 

F109-F142 

F143-F150 

F151-F16B 

F16C-F16F 

F170-F184 

F185-F192 

F193-F19D 

F19E-F1AD 

F1AE-F1BF 

F1C0-F204 

F205-F214 

F215-F265 

F266-F2A1 

F2A2 

F2A6-F2C0 



Register/screen initialization 

Input from keyboard 

Input from screen 

Output character 

Main Interrupt entry 

Interrupt: clock, cursor, keyboard 

Exit from Interrupt 



** 



character 



File messages 
Send 'Talk' 
Send 'Listen' 
Send IEEE command 
Send byte to IEEE 
Send byte and clear ATN 
Option: timeout or wait 
DEVICE NOT PRESENT 



Timeout on read, clear control lines 

Send canned file message 

Send byte, clear control lines 

Send normal (deferred) IEEE char 

Drop IEEE device 

Input byte from IEEE 

GET a byte 

INPUT a byte 

Output a byte 

Abort files 

Restore default I/O devices 
F2C1-F2DC Find/setup file data 
F2DD-F334 Perform CLOSE 
F335-F342 Test STOP key 
F343-F348 Action STOP key 
F349-F350 Send message if Direct mode 
F351-F355 Test if Direct mode 
F356-F400 Program load subroutine 
F401-F448 Perform LOAD 
F449-F46C Print SEARCHING 
F46P-F47C Print LOADING or VERIFYING 
F47D-F4A4 Get Load/Save parameters 
F4A5-F4D2 Send name to IEEE 
F4D3-F^F5 Find specific tape header 
F4F6-F50C Perform VERIFY 
F50D-F55F Get Open/Close parameters 
F560-F5E4 Perform OPEN 
F5E5-F618 Find any tape header 
F619-F67A Write tape header 
F67B-F694 Get start/end addrs from header 



Set buffer address 

Set buffer start & end addrs 

Perform SYS 

Set tape write start & end 

Perform SAVE 

Update clock 

Connect input device 

Connect output device 

Bump tape buffer pointer 

Wait for PLAY 

Test cassette switch 

Wait for RECORD 

Initiate tape read 

Initiate tape write 

Common tape I/O 

Test I/O complete 

Test STOP key 

Tape bit timing adjust 

Read tape bits 

Read tape characters 

Reset tape read address 

Flag error into ST 

Reset counters for new byte 

Write a bit to tape 

Tape write 

Write tape leader 

Terminate tape; restore interrupt 

Set interrupt vector 

Turn off tape motor 

Checksum calculation 

Advance load/save pointer 

Power-on Reset 

Table of interrupt vectors 
** Jump table: ** 

FF 93 -FF 9E CONCAT , DOPEN , DCLOSE , RECORD 

HEADER , COLLECT , BACKUP , COPY 

APPEND , DSAVE , DLOAD , CATALOG 

RENAME , SCRATCH 

Get disk status 

OPEN 

CLOSE 

Set input device 

Set output device 

Restore default I/O devices 

INPUT a byte 

Output a byte 

LOAD 

SAVE 

VERIFY 

SYS 

Test stop key 

GET byte 

Abort all files 

Update clock 

Hard vectors: NMI f Reset, INT 



F6 95-F6AA 

F6AB-F6C2 

F6C3-F6CB 

F6CC-F6DC 

F6DD-F767 

F76 8-F7AE 

F7AF-F7FD 

F7FE-F84A 

F84B-F856 

F857-F879 

F87A-F88B 

F88C-F899 

F89A 

F8CB 

F8E0-F92A 

F92B-F934 

F935-F944 

F945-F975 

F976-FA9B 

FA9C-FBBA 

FBBB-FBC3 

FBC4-FBC8 

FBC9-FBD7 

FBD8-FBF3 

FBF4-FC85 

FC86-FCBF 

FCCO-FCDA 

FCDB-FCEA 

FCEB-FCF8 

FCF9-FD0A 

FD0B-FD15 

FD16-FD4B 

FD4C-FD5C 



FF9F-FFAA 

FFAB-FFB6 

FFB7-FFBC 

FFBD 

FFCO 

FFC3 

FFC6 

FFC9 

FFCC 

FFCF 

FFD2 

FFD5 

FFD8 

FFDB 

FFDE 

FFE1 

FFE4 

FFE7 

FFEA 

FFFA-FFFF 
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